由于不想一个一个的生成折线图，折腾了好久，终于实现了一个简单的需求，下面就是要写循环了，我太难了，第一次接触，网上资料太少，找的我发疯

Sub 宏1() ' ' 宏1 宏 '

'

    Range("O2:Y2,E2:N2").Select     ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select //插入折线图     ActiveChart.SetSourceData Source:=Range("Sheet2!$O$2:$Y$2")     ActiveChart.Axes(xlValue).Select //X轴进入编辑          ActiveChart.SeriesCollection(1).Select

    ActiveChart.SeriesCollection(1).ApplyDataLabels //数据标签     ActiveChart.SeriesCollection(1).XValues = "=Sheet2!$E$2:$N$2"// 设置横坐标           End Sub